home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / remote / flpro36.zip / FLPRO.BAS next >
BASIC Source File  |  1991-07-07  |  718b  |  29 lines

  1. '''
  2. '''
  3. ''' FILELIST PRO V3.6
  4. ''' (c) Dm Soft Corp , Wang Yumin 1991
  5. '''
  6. ''' Structure docs for Remote Access 1.00 (Files.Ra) in BASIC
  7. ''' for Turbo / Power BASIC
  8. '''
  9. '''
  10.  
  11. open "Files.Ra" for random as #1 len=126
  12.  
  13. field #2,31 as arname$,_           ' String[30]
  14.          1 as typ$,_               ' Byte
  15.          41 as filepath$,_         ' String[40]
  16.          41 as freespace$,_
  17.          2 as security$,_          ' Integer
  18.          4 as flags$,_             ' Flagtype
  19.          2 as privatesec$,_        ' Integer
  20.          4 as privateflags$        ' Integer
  21.  
  22. get #1,1
  23.  
  24. areaname$ = mid$(arname$,2,asc(arname$))
  25. access$ = cvi(security$)
  26. files.path$ = mid$(filepath$,2,asc(filepath$))
  27.  
  28. end
  29.